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PPP PPP 
PPPPPPPPPPPP 

PPPPPPPPPPPP 
PPPPPPPPPPPP 
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000000000 

000000000 

000000000 
000 
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000000000 
000060000 
000000000 


**F 1LE**1D**DEBUG : 
DDDDDDDD EEEEEEEEEE BB888B8888 UU UU GGGGGGGG : 
DDDDDDDD EEEEEEEEEE B88888888 UU UU GGGGGGGG ; 
dD DD EE BB BB UU UU GG ; 
DD DD EE BB BB UU UU GG ; 
DD DD EE BB BB UU UU GG ; 
DD DD EE BB BB UU UU GG ; 
dD DD EEEEEEEE BBBBBBBB UU UU GG ; 
DD DD EEEEEEEE BBBBBBBB UU UU GG : 
DD DD EE BB BB UU UU GG GGGGGG : 
DD DD EE BB BB UU UU GG GGG6GGG : 
DD DD EE BB BB UU UU GG GG cece : 
DD DD EE BB BB UU UU 6G GG coe ; 
DDDDDDDD EEEEEEEEEE 88888888 UUUUUUUUUU GGGGGG sees : 
DDDDDDDD EEEEEEEEEE 88888888 UUUUUUUUUU GGGGGG cove : 
LL IIIII1 SSSSSSSS ; 
LL III] SSSSSSSS : 
LL I] SS : 
LL I] SS : 
LL I] SS : 
LL I] SS : 
LL I] SSSSSS : 
LL I] SSSSSS ; 
LL I] SS : 
LL I] SS ; 
LL I] $$ ; 
LL I] SS ; 
LLELLLLLLLL III] SSSSSSSS ; 
cCLLLLLLLLL III] SSSSSSSS i 


9001 MODULE OPCS$DEBUG ( 
84 RUSE (BL SSG? 
sss ne 
Bone { Seceneeeecenerergenecarasnenenerererersererereeneenententenaeneneratetettete 

:® te 
0008 is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0009 iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. « 
9010 is ALL RIGHTS RESERVED. * 

.* © 
0012 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ° 
001 i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
0014 iw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0015 is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0016 i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
0017 is TRANSFERRED. * 

'® % 
0019 \® THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
0020 i# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0021 is CORPORATION. « 

'® * 
0023 iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0024 ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL » 
0025 it « 
0026 it < 
0027 Lee RRR E REE AEE EERE RARER AEE AEA EERE 
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i FACILITY: 

OPCOM 
i ABSTRACT: 


1 

1 

' 

' 

' 

' 

This module contains routines to help with the debugging of OPCOM. 
Environment: 
VAX/VMS operating system. 
Author: 

; CW Hobbs 
Creation date: 
30-Jul-1983 

Revision history: 

: V03-003 CWwH3169 CW Hobbs 5-May-1984 
; Second pass for cluster-wide OPCOM: 

- Take SHARE priv to make sure we can reach the terminal 
' 
' 


V03-002 CwH3002 CW Hobbs 16-Sep-1983 
Use jacket routines for VM calls. 


NOUS WN (OOO NOAUES WN $0 ODNAUESWN —$O OONAUSWN (ODO ONOUSWWN (OO DNOULSWH 
CSOOCOCOOCOOOSOSOOCOOCOO OOOO OSOSSSOSOSOCOSOSCGOOOCOODOOOOCOOCOCOCOCOOCOCOOCOCOOOO 


PUPP DITO ES BS BS BS BB EEE EAN NIN nonononononononony 2 2 a a 


L 11 
OPCSDEBUG 1 =3007 138% 03:93:49 VAX=11 Bliss-32 V4.0-742 
14-Sep-1984 12:50:41 DISKSVMSMASTER: COPCOM. SRC JDEBUG.B32; 79 


1| 


Liss-32_ V4.0-742 


VAX-11 B Pa 
DI SKSVMSMASTERSCOPCOM SRCIDEBUG.B32:1° °° (15 


749 
241 


Sep-1986 12:80 


- 
- 
ez 


18: 


OPCSDEBUG 
v04= 


Egotatats 


MER —OOONOUSWN—O 


poole leo lololololojlalo) 


poe fee fee lololololololololololo) 
SN NN NNO OOOO 


2 bs ns — 9 2 a a — — ss 2 a te 


N 11 
16-Sep-1984 5:49 VAX=-11 
1a-8ep -1984 93: 0:41 DISKSVM 
BEGIN ! Start of DEBUG 
LIBRARY ‘'SYSSLIBRARY: LI8. L32'; 
LIBRARY ‘LIB$:OPCOMLIB'; 
FORWARD ROUTINE 
DEBUG_HANDLER : NOVALUE, 
DUMP_ACTION : NOVALUE, 
DEBUG_FAO_BUFFER, 
PRINT_MCB : NOVALUE, 
PRINT-NODES : NOVALUE, 
PRINT-NOD : NOVALUE. 
RINT_OC NOVALUE, 
PRINT_ROCB : NOVALUE, 
RINT-SCB : NOVALUE, 
: NOVALUE; 
EXTERNAL 
LCL_NOD : f_bblock, 
NOD- HEAD : VECTOR C2, LONG), 
GLOBAL_STATUS : BITVECTOR, 
REQUEST_NUMBER : LONG; ' Current request # 
EXTERNAL ROUTINE 
WRITE_LOG_FILE; 
EXTERNAL NM 
MIN_DS_ hae f 
MAX “DS_T YPE; 
OWN 
BRIEF, 
FAB : Sbblock CFABSK_BLN], ! FAB for the output file 
RAB : $bblock CRABSK_BLNJ; ! RAB for the output file 


BIND 


NULL_STRING = Z%ASCID °'; 


Bliss. 32 V4.0-74 
SMAST 


ww 


42 
ER: COPCOM. SRCJDEBUG.B832; 479 Y «2 


12 
OPCSDEBUG 18-5 1984 01:25:49 VAX=-11 Bliss-32 V4.0-7 4 
¥OR=009 * en 93; He } 


42 Page 
00 14-Sep-19 0:41 DISKSVMSMASTER: COPCOM. SRC JDEBUG.B32;1 (3) | 
; 100 4 } GLOBAL ROUTINE DEBUG_HANDLER (BUFFER_DESC : $ref_bblock) : NOVALUE = ; 
: ; 
; 101 0099 1 !4+ 3 
3 196 0100 1 ! Functional description: 3 
; 10 0101 1! : 
; Ie 8198 : } This routine sets SHARE priv and calls the actual dump routine. : 
: 106 0104 1! Input: ; 
> 107 0105 1! : 
; 108 0106 1! BUFFER_DESC : The address of a guadword buffer descriptor that ; 
; 109 0107 1! describes the buffer containing the message. : 
; 110 0108 1! : : 
s- 333 0109 1°! Implicit Input: F 
; 116 0110 1! : 
ee i O11) 7 | None. ; 
> (114 bis 1! ; 
.- 299 0115 1 ! Output: 3 
; 116 0114 1! : 
s (17 0115 1! None. $ 
; 118 0116 1! : 
: (119 0117 1°! Implict output: ; 
; 120 0118 1! : 
: 121 0119 1! None. : 
3 (lee 0120 1! : 
: tes 0121 1 ! Side effects: 3 
> 124 biS¢ 1} | : 
s 12 0123 1! None. : 
; 126 0124 1! : : 
3 ler 0125 1 ! Routine value: : 
; 128 0126 1! 3 
; 129 0127 1! None. ; 
: 130 0128 1 !-- 5 
: «131 3144 1 : 
; i 0130 2 BEGIN ! Start of DEBUG_HANDLER 3 
3; W39 0131 2 : 
3 (134 0132 2 LOCA j 3 
3; 135 0133 2 share_priv : $bblock (8) ! Mask for SHARE priv : 
3 196 0134 2 INITIAL (0,0); : 
s liv 0135 2! . 
; 138 0136 ! Get share privilege : 
; #139 0137 ! 3 
: 140 0138 share priye rv$v_share) = 1; 3 
: 141 0139 2 $SETPRV (ENBFLG=T, PRVADR=share_priv); ; 
3 128 bres ! Call the routines to do the actions é 
3 146 B146 ! 3 
3 «6145 014 DUMP_ACTION (.BUFFER_DESC); : 
: 146 0144 ! 3 
3. 147 B12 ! Remove share privilege , 
3; «6148 146 ! : 
3 «149 014 SSETPRV (ENBFLG=0, PRVADR=share_priv); 3 
s 150 0148 ; 
s 69S} 0149 RETURN; : 
: 32 0150 END; ! End of DEBUG_HANDLER : 


-TITLE OPCSDEBUG 


; Routine Size: 


CF 


62 


Routine Base: 


08 


0 
000000006 00 
04 


7E 


ONS NOYPOOr Nor 
mmm 9 mm an 


SCODES + 0000 


VAX=11 B: iss-32 V 
DISKSVMSMASTER: cOPCOM. SRCIDEBUG.B32; 79 


-IDENT \V04-000\ 
«PSECT S$PLIT$,NOWRT,NOEXE,2 


-BLK 
-ADDRESS P.AAB 
SOWNS ,NOEXE ,2 


Viole 


blbanth és ite "REQUEST NUMBER 
MAX_DS_ TYPE. US YSSSETPRO 
SCODES ,NOWRT,2 

Hit t3 HNyeeR Save R2 


woo 
ooo 
ooo 
ooo 


MNS YS OWOUT WOM OWwO 


PRIV+4 
a Bc “SHARE _PRIV+3 


Hi _SYSSSETPRV 


DBE *OWDIWVI"™OoOL&rm 
OOoooooooooooooooo 
OOoQoooooooooooo 
oCoQoooooooooooo 
WMIMIMNINMN SS | OO 


y ye Re ee om, gg 


Ws, SY S$SETPRY 


> 12 
OPCSDEBUG 16-Sep-1986 01:25:49 V tee- 
O04 0D 12-08-1382 95:83:47 =f ASTER: 


ROUTINE DUMP_ACTION (BUFFER_DESC : $ref_bblock) : NOVALUE = 


144 
! Functional description: 


This routine pppends a dump of all OPCOM data structures to the file described by the 
SDEBUG_FILE. If this 4 hee BS name does not exist, the dump is performed 

to OPCSDEBUG_TERMINAL. OPCSDEBUG_TERMINAL is created as an RMS file, so it can also be 

a disk file. (OPCSDEBUG_FILE is gs for append, OPCSDEBUG_TERMINAL gets a $CREATE so 


that a new file is created for each call.) 


AX-11 BL .O- 
ISKSVMSM COM 


Input: 


BUFFER_DESC : The address of a Genery buffer descriptor that 
describes the buffer containing the message. 


Implicit Input: 
None. 
Output: 
None. 
Implict output: 
A file will be opened (created) and written. 
Side effects: 
None. 
Routine value: 


OWOOOOOOOWWO 080909 0909 SII SIN NNSA AAAAAAAAOUMIUIMIVGUN 


NOME WN OS ODO NA UE WIN  O ODNAMU EWN (OO ONAUES WN OVO ONAUES WN 0 OONOULS WR 


SOOODOOCOOOOO OOOO OO O00 00 09 09 09 09 09 09 09 SINISE NINN NOAA AAA AAAAOOUMUIUTIUI 
PROPSROPORMORIPONNINONINONONONINONYD) 2 9 


ee we ew wel o lolol alien alo l a ala lanl aw wlan alan ln lawlalelolelelelelelelelolelalelololelololololol ol olololololola) 
PIPPIN INPON NIN at et at at at nt tt at at ot tS 8 


Be Se Oe Be Oe Oe FH Os Be Oe Ge FHF Ge Se HSH Ge BGs Se SH Se Ge Ge Fe Ss Oe oe BH Se Be Se Se Ge Be Se Oe Os G4 Oe Oe BH SH SH Se ws @eee eeu 


None. 
BEGIN ! Start of DUMP_ACTION 
OWN 
share_priv : $bblock (8) ! Mask for SHARE priv 
PRESET (Corv$v_share] = 1); 
9 LOCAL 
9 racb : Sref_bblock, ' RQCB data structure 
200 ocd : $ref_bblock, ! OCD data structure 
201 mcb : Sref_bblock ' MCB data structure 
$06 msg : REF VECTOR €,LONG]; | Pointer to debug command message 
$0 msg = .buffer desc Cdsc$a_pointer]) + opc$k_comhdrsiz; ! Init the message pointer 
205 brief = .msg [1); ! Second longword contains the flags 
oF Initialize the structures needed by RMS 
09 P $fab_init ( 
10 Pp fab = fab, ! Input file FAB 


a 12 
16-Sep-1984 
14-Sep-1984 


OPCSDEBUG 


1:25:49 VAX"11 Bliss-32_v4.0-742 7 
v04-000 Mee ey tN cbdMGAAS TERS CORCOM SkcaDEBuG.832:9°%" (4) 


} 11 P 0208 fac = ! PUT access ; 
a8 P 0509 ine © Getir BYTE (‘OPCSDEBUG_FILE:'), | Set name addr } 
: 1 P 0210 fns = 15 ' Set name size ; 
: 314 P 0211 fop = cif, i Create it if it doesn't exist ; 
> 215 P 0 \§ org = seq, ! Sequential organization : 
> 216 P 021 rat = cr, ! Carriage return carriage control : 
; ey P 0214 rfm = var ! Variable length records $ 
: $15 $516 ie ; 
: 220 P0217 2 $rab_ init ( | : 
2 ed eee das oa 
3 fa = fab, 3 
$ P 0220 ; rac = se ' Sequential 3 
> 224 Pp $55 rop = teat .wbh) ' Position tote write behind | 3 
Fed 8 pears edi 
3 r 
, ger 0224 IF NOT (SCREATE (fab = fab)) 3 
2 ee ee rit 
: $e P0998 3 S12 ae a | Input file FAB | ; 
: = fab, t 3 
: 232 Pp O6¢? ; fac = pyt ! : T oreens : 
: 233 P 08 0 3 fna = UPLIT BYTE ("OPCSDEBUG_TERMINAL:'), ! Set name addr ; 
: 234 P 0231 3 fns = 19, '" Set name size 3 
s 239 Pp OS36 3 org = seq, i Sequential organization $ 
; 236 P 0233 3 rat = cr, ! A return carriage control 3 
; $3 Pp Ogee ; be = var ! Variable Length records 3 
: 239 0236 4 IF NOT ($CREATE (fab = fab)) | : 
: 240 0237 3 ui 3 
; 241 0238 3 RETURN; : 
ee ea 
; ghd 241 $F F_NOT (SCONNECT (rab = rab)) | ; 
ie pall 
3 ste ose2 5 Print the 5 dindiad | : 
: 250 0247 put ¢ (NULL _STRING) ; : 
s 251 0248 F $ 
Pobaee Ba 5 oe ee 
: See 0¢3) i <alobal. status CGBLSTS_K_IN_vAXcluster] | : 
; 238 0988 a (debug_fao_buffer(ZASCID ‘Current OPCOM status for !AS: 'ZD", Lel_nod Cnod_q_name_desc], 0) | : 
; 238 8S 22 ; put (debug_fao_buffer(ZASCID ‘Current OPCOM status at !%D:', 0)); | : 
; 6 0937 ELSE | ; 
; 6¢ 0959 ® global. status CGBLSTS_K_IN_VAXc luster] : 
: $i $563 ol (debug ta fao_but fer( ; 
3; 265 Bs0¢ Bee RRR ERE RKKKK EE Dunp of OPCOM state for 'AS: ‘!%T >>>>>>>>>>>>>>>>>'", : 
: $06 $Se7 1 ce tcl ed Cnod_q_name_desc])) : 


F 12 
OPCSDEBUG 16-Sep-19 1:25:49 VAX-11 Bliss-32 V4.0-742 8 
v04-0 BEB 14- ety 7 93: 0:41 DISKSVMSMASTER: COPCOM. SRC JDEBUG.B32; a9 © a) | 
H $8 8 6 END put (XASCID *EKKEKK KEKE KKK KK KKKK Dump Of OPCOM state !2T >>>>>>>>>>>>>>>>>>>"'); 
3 70 8 67 ‘ 
3 f} 8 os Print the node information 
; o 8 70 IF .global_status CGBLSTS_K_IN_VAXcluster] 
3 74 71 THEN 
s 275 0 Me print _nodes (); 
$ 76 027 
s 277 0274 ! Print the miscellaneous pieces of state 
: 278 0275 ! 
3 44s 8 76 if NOT .brief 
; eno 77 THEN 
: 281 0278 print_ #50 0); 
: 282 0279 print_ocd ( 
3; 6265 0280 
> 284 34 é put ks ovens | 
; 283 0 Be F NOT .brief 
; 286 028 § THEN 
5 287 0284 put (ZASCID ‘sesecsessesezezszerezszeeseeszes2 End of dump sfessseseesessesessseeseses2e2z2ee2"'): 
; 288 0285 ¢ 
; 289 0286 IF NOT (S$SCLOSE (fab = fab)) 
3; 2 0287 2 THEN 
: 291 0288 2 RETURN; | 
; 292 0289 2 
: 295 0290 2 RETURN; 
: 294 0291 1 END; ! End of DUMP_ACTION 


-PSECT $PLITS,NOWRT,NOEXE,2 


50 4F 00008 P.AAC: .ASCII \OPCSDEBUG_FILE:\ ; 
50 4F 00017 P.AAD: .ASCII \OPCSDEBUG_ TERMINAL: \ § 
41 4E 00026 i 
0002A -BLKB 2 
75 «43 Boe P.AAF: .ASCII \Current OPCOM status for !AS: '%D- 3 
61 74 00038 \<0> 3 
20 20 Q004A : 
9 Babee eASCII <0> : 
010E0026 00054 P.AAE: .LONG 12696758 3 
pogzooyy 0058 -ADDRESS P.AAF 3 
75 4 O05C P.AAH: .ASCII vEcrrent OPCOM status at !%D:\ : 
6) 74 BRe8 i 
01 FONE 0078 P.AAG: .LONG 1reee7ee 3 
00000000" 0007C «ADDRESS P.AAH : 
: : itt P.AAJ: cASCIT  \cccccceececececcc Dump of OPCOM state fo\ ; 
0 4D 0009 3 

? 72 Beas ASCII \r !AS: !2%T >>>>>>>>>>>>>>>>>\<0><0> : 

a6 ant : 

2 C «ASC af 3 

0} £008 C8 P.AAL: “LONG 17694789 ; 

0 0° cc -ADDRE AAJ : 

: : 44 P.AAL: .ASCII vecececqcqceceqceceecee Dump of OPCOM sta\ ; 
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0 E 
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§ 10 
114 
0° 00118 
D apts 
D 198 
D QO15A 
0 00144 
D 00153 
D 00162 
0 Bi 96 
0* 00170 


0O# 00098 SHARE_PRIV: 
-BYTE 
80 00098 


0009C 


9E 00002 
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00000 DUMP_ACTION: 
. WORD 


4 DISKSVMSMAST 


\te !2£T >>>>>>>>>>>>>>>>>>>\<0> 
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“A ADDRESS, P.AAL 


\ dump s2*2ssssssssssssssssssesssees2s2==2\ 


17694800 


[ADDRESS P.AAN 


SOWNS ,NOEXE ,2 


FAB 


FAB 
SYSSCREATE, SYSSCONNECT 


SYSSCLOSE 
SCODES,NOWRT 2 


gaye Re. oR3,R4,R5,R6,R7,R8B,R9 


SUA SCREATE, R8 
ea R 


#20483, SRMS_PTR 


#33554432, SAMS | PTR+4 


#17409. SRMS_PTR 
$RAS. Shes PTR+4 


RMS 
ade “$RMS_PTR+60 
#1, SYSSCREATE 


49 VAX-11 Bliss. -32 V4.0-742 
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R 
#0, (SP), #0, #80, SRMS_PTR 
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; Routine Size: 
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296 bytes, 
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000000006 
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00006 
0000v 


0000Vv 


0000V 
0000Vv 


000000006 
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Base: 


6 7? 
oH Be 
0200 F 88 5 

17 ag 43 0 
13 9 09 
56 DD 0009 
4 FB 0009 
0 e? OOA 
50 a 4 BRA 
6 Bi 
5” 0D its 
01 FB 0008 
FC A6 EY 0008 
00006 cr E9 0008 
E 04 0008 
30 C1 000C 
54 A? YF 000C 
03 FB 000C 
1B 11 Q00C 
7E 04 0000 
78 =A? YF 0000 
OF 11 0000 
0000G CF €9 00007 
30 C1 Q00DC 
00c8 C7? YF OO0E2 
02 FB Q00E6 
90 OD Hatt 
04 11 QOOED 
0114 C7 9F QOOEF 
01 FB QO0F3 
0000G CF E9 O00F6 
00 FB QO0FB 
FC A6 €E8 00100 
00 FB 00104 
99 FB 00109 
7? oD bat s6 
01 FB 0011 
FC AG ge 00113 
016C 9 C? 9F 00117 
9} FB 0011B 
6 0D B84 35 
01 FB O15 
04 00127 


SCODES + 0033 


749 VAX=-11 s-32 V 


ox808- 138s 93:83:29 


Disk SK$V meh 


R6 
4o pysceeae 


RA 
#1, SYSSCONNECT 
RO, 12$ 


#1, PUT 
BRIEF, 4$ 

GLOBAL _STATUS+1, 38 

#48, LCL_NOD, -(SP) 

"3. DEBUG_FAO_BUFFER 


-(SP) 

P.AAG 

5$ 

GLOBAL eee 7$ 

ae f , (SP) 
P.AAI 

#e, DEBUG_F AO_BUFFER 

8$ 

P.AAK 

#1, PUT 

GLOBAL Agu ee 9$ 
e NT_NODES 

BRIEF 


0 
#0, PRINT_SCB 
#0, PRINT~OCD 


i PUT 
anicr. 11$ 


P.AA 
#1, PUT 
#1, SYSSCLOSE 


4.0=742 
TER: cOpcoM. SRC JDEBUG.B32; 1° 
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Address of formatted descriptor 
SIDE EFFECTS: 


12 
OPCSDEBUG 14. $ep-1984 01:25:49 VAX-11 Bliss<-32 V4.0-742 ge 11 0 
y0%~000 debug_ fao_buf fer 14- 7300138 93383 285 DISKSVMSMASTER: COPCOM. SRC IDEBUG.B32; a (5). V 
38 0 3 1 5 ROUTINE debug_fao_buffer (ctrstr : REF VECTOR(2], args : VECTOR (4]) = %SBTTL ‘debug_fao_buffer' 
98 6 94 le4 
99 0295 ‘ 
BS 8 88 FUNCTIONAL DESCRIPTION: | 
° 8 38 This routine passes an ascii string through the FAO system service with any number of specified para 
04 0300 @ } INPUTS: | 
05 ret ! 
06 0 Oe } ctrstr Address of FAO control string descriptor 
44 830? args Any number of additional arguments 
0 0305 2 i IMPLICIT INPUTS: 
1 Bane ! 
1 07 : none 
1 308 ! 
309 ! OUTPUTS: 
310 ! 
311 ! none 
z1§ ! 
} IMPLICIT OUTPUTS: 
; none 
i 
i 
' 
i 
' 
i 


| 
ROUTINE VALUE: | 
} 


FUN — OOONOUS WN —OOONOUSWN OW” 


none 
OWN 

desc : rag 3 C2, LONG), 

faobuf ctor (512, BYTE) 

: } 
desc (0) = 512; ! Set up result descriptor 
desc [1] = faobuf; 

| 


$faol (ctrstr=.ctrstr, outlen=desc, outbuf=desc, prmlst=args); 
RETURN desc; 
END 
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-PSECT SOWNS,NOEXE,2 


QOAO DESC: .BLKB 8 
QOOA8 FAOBUF: .BLKB 12 


-EXTRN SYSS$FAOL 
-PSECT SCODES,NOWRT,2 


Pa 


-832;1 


$$-32 V4.0-742 
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STER 
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debug_fao_buffer 


cea 
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BUFFER, Save R2 


A 
2 
E 
#4, SYS$FAOL 


B 

§ 
CTRSTR 
DESC, RO 


Twowu ooocmw-s,s 
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; Routine Size: 
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OPCSDEBUG 16-Sep-1984 01:25:49 VAX-11 Bliss-32 V4.0-742 Page 13) 0 
ae ti print_mcb (mcb) 1a-8ep-19 4 93:83:23 DISKSVMSMASTER: COPCOM. SRCJDEBUG.B32;1 (6). Vv 
> 343 3 1 ROUTINE print_mcb (mcb : $ref_bblock) : NOVALUE = ZSBTTL 'print_mcb (mcb)' | H 
: 344 BEGIN 3 
; 345 40 '++ H 
i 346 0 41 2i | ; 
5 rt 4 8 ri} FUNCTIONAL DESCRIPTION: 5 
: 349 44 i Format and print the contents of one MCB | ; 
: 350 bac Si : | 
: 51 0 re ! INPUTS: 5 
: 26 034 ' F 
; 3 0348 ! none g 
; 354 0349 2 i ; 
; 355 0350 i IMPLICIT INPUTS: ; 
; 356 0351 i | ; 
: 57 0 28 ! none 3 
: 358 035 i : 
; $26 0354 ! OUTPUTS: 3 
; 360 0355 ! 3 
; 361 O29 ! none 3 
3 oe 035 ! F 
; 6 0358 ' IMPLICIT OUTPUTS: ; 
: 364 0359 ' 3 
s 365 0360 ! none : 
; 366 0361 ! 3 
> tor Bees ' ROUTINE VALUE: $ 
; 368 036 ! 3 
3; 369 0364 ! none 3 
: 370 0365 2 | | : 
s Sri 0366 2 ! SIDE EFFECTS: ; 
z Hes 0367 ' 3 
Te 0368 ! none 3 
; 374 0369 2 i-- | ; 
3; 375 0370 2 3 
s 376 0371 § 3 
s irr O36 IF .mcb EQL 0 3 
; 378 0373 2 3 
: 379 0374 2 RETURN; | : 
: 380 0375 ; 
; 381 0376 IF .BRIEF : 
3 386 0377 THEN 3 
; 0378 BEGIN | 3 
; «384 0379 IF .mcb Cmcb_l_textlen] NEQ 0 | 3 
; 385 0380 THEN 3 
; $86 ee put ( 3 
; 387 3 ¢ debug_fao_buffer ( 3 
; 388 038 ZASCID ' MCB text ““!AF'’, é 
; 389 0384 -mcb Cmcb_l_textlen], .mcb Cmcb_l_textptr] : 
; 390 0385 ) 3 
: 391 0386 F 
3 3 0387 END 3 
; 39 0388 g 
3 394 0389 ELSE 3 
: 395 0390 BEGIN 3 
s 39 8303 3 
; 39 308 put ( r 
; we 039 debug_fao_buffer ( : ‘ : 
; 399 0394 ZASCID ' MCB at !XL, UL links !XL:!XL, wosize !UL, b_type !UL", 3 


12 
OPCSDEBUG 18-Se 1984 01:25:49 VAX-11 Bliss-32 V4.0-742 Page 14) 0 
YOS-000 print _mcb (mcb) 14-Sep-19 4 93 0:41 DISKSVMSMASTER: COPCOM. SRC IJDEBUG.B32; 1 (6) | V 
; 400 95 -mcb,_.mcb tock |.flinkd. -mcb Cmcb_l_ blink], .mcb Cmcb_w size], | ; 
; 401 9 -mcb Cmcb_b_type : 
; 40 9 ) ; 
; 40 98 ; 3 
; 404 0399 put ( : 
: 206 20) siemedinenes 1357 b ‘UL, lL im. b !xXL, lL 'XL* | 
3 _scope ! _seqnum !XL, rgcb !XL, status !XL’, | : 
; 40 040 -mcb incb_b, scope! mach tacb7\_seqnund. -mcB Pach. \_racbI. | ; 
; 408 040 -mcb mcb_\ "status | : 
; 409 0404 ) : 
: 410 0405 ); : 
> 411 0406 put ( | H 
; 216 0407 debug_fao_buffer ( ; 
: 41 0408 ZASCID ' L_textlen !UL, l_textptr !XL, luimsgid !XL', : 
3 414 0409 .mcb Cmcb_l_textlenJ, .mcb Cmcb-l_textptrJ, .mcB Lmcb_i_msgid] : 
; 415 0410 ) 
>; 416 0411 3 ); 
; 417 eete ; IF_.mcb Cmcb_l_textlen] NEQ 0 
; 418 041 THEN 
> 419 0414 3 put ( 
: 420 0415 3 debug_fao_buffer ( 
; 421 0416 ; ZASCID ° MCB text ““!AF'’', 
: 422 0417 -mcb Cmcb_l_textlen], .mcb Cmcb_l_textptrJ 
> 423 0418 3 ) 
: 424 0419 3 ); 
: 425 0420 2 END; 
; 426 0421 2 
: 427 bess 2 RETURN; 
; 428 0425 1 END; 


| 
| 
| 
.PSECT $PLITS,NOWRT,NOEXE,2 | 
| 
| 
| 
} 


20 74 78 65 74 20 42 43 4D 20 20 20 20 20 20 00174 P.AAP: .ASCII \ MCB text ‘"!AF''\ $ 
22 46 41 21 22 00183 3 
01060014 00188 P.AAO: .LONG 17694740 : 
00000000' po 18s ADDRESS P.AAP , : 
2c 4C 58 21 20 74 61 42 43 4D ? 20 20 0 0190 P.AAR: .ASCII \ MCB at !XL, L_links !XL:!XL, wosiz\ ; 
21 3A 4C 58 21 20 73 6B 6€ 69 6C SF 6C 20 20 Q019F F 
7A 69 73 SF 77 20 3! sf 4C 58 OO1A ; 
20 65 70 79 74 SF 62 20 20 2C 4€ 55 21 ¢2 65 0018 ASCII \e !UL, b_type !UL\<0><0> : 
00 00 4C $] 001C 3 
a3 A QO1CC P.AAQ: .LONG 17694778 3 
0000000" 00100 ADDRESS P.AAR ; 
21 20 65 70 6F 63 73 SF $2 20 20 20 20 20 4! 0104 P.AAT: .ASCII \ b_scope !UL, l_seqnum !XL, lirqc\ ; 
21 20 6D 75 6€ 71 65 73 SF 6C $8 0 2C 4C 01E3 ; 
63 71 72 SF 6C 20 20 2C 4C 58 oor : 
a ae ie, ? oe on ee a! ee) ee. $¢ O1FC eASCII \b IXL, lL status !XL\ 3 
4¢ 58 21 20 7 0 08 F 
4 et 0210 P.AAS: .LONG 17694780 3 
0000000' 00214 ADDRESS P.AAT 3 
6E 65 6C 74 78 65 SF 6C 20 30 20 20 0 20 0 18 P.AAV: ASCII \ L_textlen 'UL, l_textptr 'xL, L.\ ; | 
74 70 74 78 65 76 SF 6C 20 20 2C 4C 1 20 ¢i 3 
SF 6C 4 0 2C 4C 58 21 9 2 00256 : ; 
00 00 00 4C 58 21 20 64 69 67 $0 0240 ASCII \msgid !XL\<0><0><0> 3 
£0031 0024C P.AAU: .LONG 17694769 ; 


OPCSDEBUG 
voe-000 


20 74 78 65 74 20 42 43 4D 20 $8 2 


3; Routine S$ 


Pa Y 


print_mcb (mcb) 


126 bytes, 


64 


Routine Base: 


12 | 

16-Sep-1984 01:25:49  VAK=11 Bliss-32 V4.0-742 P 15) 0 

1 ~300 7} 38% 93:83:23 DISKSVMSMASTER: COPCOM. SRC IDEBUG.B32:1 > (6) | Vv 

00000000" 00 20 «ADDRESS P.AAV : : 
20 9 0 34 P.AAX: ASCII \ MCB text ‘!AF''\ : | 
01 £00 4 00 63 PLA .LONG 17694740 : 
00000000" 0026¢ “ADDRESS P.AAX : | 

5 

| 2 


.PSECT $CODE$,NOWRT,2 
001C 00000 PRINT_MCB: 
. WORD 


Save R2,R3,R4 s 0338 | 
0000v CF 9E 0000 MOVAB PUT, ; 
DO = AF: «9E 0000 MOVAB DEBUG FAO_BUFFER, R3 : 
04 AC 00 00008 MOVL MCB, R2 : 0372 
6C 13 OOO0F BEQL 3$ : 
0000" CF €9 00011 BLBC = BRIEF, 1$ : 0376 
30 Ag D5 00016 TSTL  48(R25 : 0379 
62 13 00019 BEQL © 3$ : 
30 A2 70 00018 MOVO 48(R2), =(SP) > 0384 
0000' CF SF OO01F PUSHAB P.AAO + 0382 
50 11 00083 BRB 2$ : 
0A A2 9A 00025 18 MOVZBL 10(R2), -(SP) > 0396 
08 A2 3C 00029 MOVZWL 8(R2), -(SP) > 0395 
62 7D 900¢D MOVO = (R2), =(SP) : 
52 DD 00030 PUSHL R2 : 
0000" CF 9F 00032 PUSHAB P.AAQ > 0393 
06 FB 00036 CALLS #6, DEBUG_FAO_BUFFER : 
50 DD 00039 PUSHL RO : 
01 FB 00038 CALLS #1, PUT : 
24 A2 7D 0003E ova 3giR2), -(SP) : 0402 
0c Ag DD 00042 PUSHL 12(R2) : 
0B A2 9A 00045 MOVZBL 11(R2), =(SP) : 
0000" CF 9F 00049 USHAB P.AAS : 0400 
05 FB 00040 CALLS #5, DEBUG_FAO_BUFFER : 
50 DD 00050 PUSHL RO : 
01 FB 00052 CALLS #1, PUT ; 
2c Ag bp 00055 PUSHL  44(R2) > 0409 
0 A2 72D 00098 MOV 48(R2), -(SP) : 
0000" CF 9F 0005¢ PUSHAB P.A : 0407 
04 FB 90060 CALLS #4, DEBUG_FAO_BUFFER : 
50 DD 0006 PUSHL RO : 
01 FB 00065 CALLS #1, PUT ; 
30 Ag D 9068 TSTL  48(R2) + 0412 
10 1 68 BEQL 46s 3$ F 
30 a2 7D 0006D MOVG 48(R2), -(SP) > 0417 
0000' CF 9F 00071 PUSHAB  P.AAW > 0415 
3 FB 00075 28 CALLS #3, DEBUG_FAO_BUFFER : 
0 pd 00078 PUSHL RO ; 
01 FB OO07A CALLS #1, PUT ; 
04 0007D 3$: ET > 0423 
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N 12 
16-Sep-1984 9 
Sot int print nodes : NOVALUE = Z%SBTTL ‘print _nodes' 
++ 
FUNCTIONAL DESCRIPTION: 
Format and print the contents of the node List 
INPUTS: 
none 
IMPLICIT INPUTS: 
global NOD_HEAD 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
messages are printed 


L 
np : $ref_bblock, 
sb : $Sref_bblock, 


“ 
os 
bad 
bm) 
® 
Cc 
° 
o 
. 


1 
. Print the heading 


put (null_-string); 
F .brief 


EN 
ne put (debug_fao_buffer(ZASCID °!12<NODES:!> Number 
put (debug_fao_buf fer (ZASCID 
"NODES: 
Build a List of nodes, sorted by node name 


sort = 0; ' Init sorted List to null 


' Local pointer to nod as we look for place 
' Local pointer to new sort block 

' Local pointer to sort List as we move 

!' Local pointer to sort List as we move 


State Csid 


-32 V4.0-7 
ER 


Up since’)) 


(queue head !XL)', nod_head)); 


42 Page 1 
: COPCOM. SRC IDEBUG.832;1 (7 


——— eee | 


B 13 
OPCSDEBUG 16-Sep-1984 01:25:49 VAX-11 Bliss-32 V4.0-742 Page 1 
v04-000 print _nodes 122868= 1382 3; 0:41 DISKSVMSMASTER: COPCOM. SRCJDEBUG.B22; 1 . (7 
: 487 0481 tr = .nod_head (0); 
: 488 048 HILE .ptr-NEQ nod_head [02 
: 489 bee dO 
: 490 0484 BEGIN 
> 491 ot & IF NOT (status = OPCSGET_VM (XZREF (8), sb)) ! Get a new sort block 
; 49 486 THEN 
: 49 0487 $signal_stop (.status); 
>; 494 0488 sb (4,0,32,0) = .ptr; ! Store the nod in the new sort block 
> 495 0489 sp = .sort; : List pointer to start of sorted List 
> 496 0490 aa = 0; ! Last List pointer to null 
: 497 0491 WHILE .sp NEQ 0 DO 
; 498 Begg 4 G 
: 499 493 4 mp = ,sp (4,0,32,0); ! Get pointer to nod of this sort block 
; 500 0494 4 IF CH$LEQ (.ptr Enod_t_name_tend, -ptr Cnod_l_name_ptrJ, 
3 «S01 0495 4 -np Cnod_l_iname_len], .np Cnod_l_name_ptrJ, 0) 
; 206 0496 4 EN 
: 0497 4 EXITLOOP; 
; 504 0498 4 sp = .Sp; ! Remember this sort block as last sort block 
3 305 0499 4 sp = .sp C0,0,32,0); ! Get pointer to next block 
3; 306 0500 3 3 
3; 650” 0501 ; IF .lsp EQL 0 
; 508 Bade THEN 
; 509 0503 3 ‘ ; : 
3.6 310 0504 3 ! Last pointer zero, means we are adding first entry to List 
3 31) 0505 3 ! 
3 Sie 0506 4 BEGIN : . 
3 315 0507 4 sb (0,0,32,0] = .sort; ! Next pointer to zero or first in List 
s 316 0508 4 sort = .sb; ! Put it at the head of the List 
s 515 0509 4 END 
s «636 0510 3 ELSE 
s SV? 0511 3 ! 
; 38 B28 3 ! Last pointer non-zero, sort List is non-empty 
, 39 0513 3 ! 
: 520 0514 4 BEGIN ; 
; $21 0515 4 sb [0,0 4 0] = sap C0,0,32,0); ! Next pointer to zero 
: 522 0516 4 598 (6,6,32,0) = .sb; ! Previous 
3s Ses 0517 3 3 
; 524 0518 3 pee = .ptr Cnod_l_flink]; 
3: Seo 0519 2 ND; 
; 3a 0520 ! ; 
3 Ser 0521 ! Now, print the sorted List 
; 528 b25§ : 
s 52 052 oe = ,sort; 
; é 0 bese WHILE .sp NEQ 0 
: 1 525 D0 
3 Dae 0526 BEGIN 
3 339 0527 ptr = .sp (4,0,32,0); ! Get address of nod block 
3 te 0528 print_nod (.ptr); 
s $35 0529 sb = .sp; ! Remember this as last sort block 
; 5S 8 0 sp = .sp (0,0,32,0); ! Get pointer to next block 
3 EA 23) 4 vi wr (status = OPCSFREE_VM (ZREF (8), sb)) ! Get a new sort block 
3 239 §a35 $signal_stop (.status); 
3 a9 534 ND; 
3: 541 535 
: 246 5 § RETURN; 
; #54 05 1 END; 


i | 


13 
OPCSDEBUG 1hese =1984 01:25:49 - VAX=11 Bliss-32 vV4.0-742 Page 18 
vitae tit print_nodes 1a-8ep-19 4 03:83:23 DISKSVMSMAS TER: COPCOM. SRC IDEBUG.B32:1 >” HB 
.PSECT $PLIT$,NOWRT,NOEXE,2 
21 53 45 446 GF GE 3C 32 31 21 00270 P.AAZ: ASCII \!12<NODES:!> Number State id\ ; | 
gi Fe 8h 38 20 29 2 as 8S by 95 bo5he bral, | 
20 50 30 36 30 30 36 56 $6 $0 30 b05e8 ASCII \ Up since\ : | 
° since Pi | 
ee gf ge 88 $8 boda , : | 
010E003C 00 AC P.AAY: .LONG 17694780 : | 
00000000' 0 B “ADDRESS P.AAZ : 
20 20 20 20 20 3A 53 45 44 4F aE B4 P.ABB: .ASCIJ  \NODES: = | 
20 20 20 20 20 20 20 20 20 20 002¢3 ; 
TCS aoe took wood ws P| 
e eue i b | 
61 65 68 20 65 75 65 75 71 $8 0 00 EB “s Te : 
& 4C¢ O2FA 3 | 
010E0048 O0¢F¢ P.ABA: .LONG 17694792 : | 
00000000" 00300 “ADDRESS P.ABB : 
.EXTRN OPCSGET_VM, LIBSSTOP 
-EXTRN OPCSFREE_VM 
.PSECT $CODE$,NOWRT,2 | 
OFFC 00000 PRINT_NODES: | 
.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 + 0426 | 
58 00006 CF 9E 00002 MOVAB NOD_HEAD, R11 : | 
5E 08 C2 00007 SUBL 2 : : 
0000" CF 9F OOOOA PUSHAB NULL_STRING + 0470) 
0000v CF 01 FB 0000 CALLS #1, PUT : 
0B 0000' CF €9 0001 BLBC BRIEF, 1$ > 0471. 
0000" CF 9F 00018 PUSHAB P.AAY + 0473 
FF3B OCF 01 FB 0001C CALLS #1, DEBUG_FAO_BUFFER ; 
0B 11 00021 BRB 2$ : 
5B DD 00023 1$ PUSHL + 0475. 
0000" CF 9F 00025 PUSHAB P.ABA ; 
FF2E CF 02 FB 00029 CALLS #2, DEBUG_FAO_BUFFER : 
50 DD O002E 28: PUSHL R : 
0000v CF 01 FB 00030 CALLS #1, PUT ; 
39 D4 00033 CLRL = SORT : 0480 
57 68 DO 00037 MOVL  NOD_HEAD, PTR > 0481 | 
50 : i 00054 3$: MOVAB NOD"HEAD, RO : 0482. 
50 1) 050 CMPL PTR, RO 3 
5 13 80040 BEQL : | 
04 AE 9F Doug PUSHAB SB ; 0485 
04 AE 0 po 004 MOVL #8, 4(SP) ; | 
04 AE SF 00049 PUSHAB : 
00006 CF FB 004C CALLS ne, OPC$GET_VM ; 
SA dO 00 21 MOVL RO. STATU : 
6 A €9 00054 BLBC STATUS, 10$ ; 
5 04 AE D0 00057 MOVL 5B, R > 0488 | 
06 AS 57 D 098 MOVL PTR, 4(RS) ; | 
56 9 D F MOVL sort, SP : 0489 | 
8 D4 00062 CLRL ~—LSP : 0490. 
6 DS 00064 4$: TSTL SP : 0491 
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OPCSDEBUG bese 1984 01:25:49 VAX-11 Bliss-32 V4.0-742 Page 20 
v04-000 print _nod (nod) a ae 12:50:41 DISKSVMSMASTER: COPCOM. SRCJDEBUG.B32;1 . (8) | 
s 545 0538 1 ROUTINE print_nod (nod : $ref_bblock) : NOVALUE = ZSBTTL ‘'print_nod (nod)' 
: ate bas9 } Beernne Print. “ se | 
; 547 0540 '+4 
: 548 0541 ! 
; 549 p26 ' FUNCTIONAL DESCRIPTION: 
> 350 054 : , 
> 33) 0544 ! Format and print the contents of one NOD 
; 226 0545 ! 
: 3 0546 ' INPUTS: 
3 536 0547 ' 
3 999 0548 ! none 
; 556 0549 § ! 
s. Sor 0550 ! IMPLICIT INPUTS: 
; 558 0551 § ! 
; 559 0326 ! norie 
: 560 0553 2! 
s 36) 0554 2 ! OUTPUTS: 
; 562 0555 § ! 
3; 365 0556 ! none 
; 564 0557 2! 
: 565 0558 2 ! IMPLICIT OUTPUTS: 
; 566 0559 2! 
; 567 0560 2! none 
; 568 0561 2! 
; 569 b26¢ 2 ! ROUTINE VALUE: 
: 570 0563 2! 
s Sof) 0564 2! none | 
s S72 0565 2! 
: 573 0566 2 ! SIDE EFFECTS: | 
> «574 0567 2! 
: 575. 0568 2 none | 
: 576 0569 2 !-- 
s S77 0570 2 
; 578 0571 2 LOCAL 
s S79 0572 2 state; 
: 580 0573 2 
; 581 0574 2 IF .nod EQL 0 
; 582 0575 2 TH | 
: 583 0576 2 RETURN; 
3; 584 0577 2 
; 585 0578 3 state = (CASE .nod [nod_b_state] FROM 1 TO nod_k_state_max OF 
; 586 0579 ; SET 
3 Sear 0580 nod_k_state_local] : ZASCID ‘Local’; 
; 4588 0581 nod_k_state_start] : ZASCID ‘Starting’; 
3; 589 B2e¢ nod_k_state_active] : ZASCID ‘Active’; 
; 590 058 nod_k_ state departed] : ZASCID Departed’: 
; 591 0584 INRANGE ,OUTRANGE) : ZASCID ‘Unknown'; 
3 238 0585 TES); 
3; 39 586 
3: 594 587 IF .BRIEF 
; 595 238 THEN 
; 596 B3 9 BEGIN 
; 597 590 put ( 
; 598 B23 debug_fao_buffer ( 
; 599 236 ZASCID "!4< !'>!6AS 'SUL 'BAS 'XL 'ZD', 
; 60 059 nod [nod_q_ name_desc], .(nod brad, t node sygtemid})<0.16.09, -State, 
; 60 0594 .nod Cnod_l_nodé_csidi, nod Cnod_G_swincarn 
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ocd = .ocd_vector [0]; 
IF NOT .brief 

THEN 

BEGIN 


ocd_vector : VECTOR 


(0); 


Display the OCD Vector contents 


13 
OPCSDEBUG 1b-S2 1984 01:25:49 VAX-11 Bliss- 4.0-742 Page 24. 
y0s-000 print_ocd 12-808- 1982 9:83:63 DISKSVMSMASTER: COPCOM. SRCJDEBUG.B32; 1 . by 
; 634 626 1 ROUTINE print_ocd : NOVALUE = %SBTTL ‘print_ocd’ | 
: 635 659 3 Been © sharp, | 
; 6 § 628 14+ 
; 6 629 ! 
; ? 3 86 ? FUNCTIONAL DESCRIPTION: 
: " 8 ¢ Format and print the contents of the OCD vector 
; & 0634 ! INPUTS: 
> 64 0635 ‘ 
> 644 0636 ! none 
; 645 be 7 ! 
; 646 638 ! IMPLICIT INPUTS: 
; 647 0639 ' 
; 648 0640 ! global OCD_VECTOR 
; 649 0641 ! 
; 650 pO%§ ' OUTPUTS: 
3 63) 064 § ! 
; O26 0644 ! none 
3 6 0645 2! 
; 654 0646 2 ! IMPLICIT OUTPUTS: 
3; 655 0647 2! 
>; 656 0648 2! none 
3 607 0649 2! | 
; 658 0650 2 ! ROUTINE VALUE: 
3; 659 0651 § ! 
; 660 065 ! none 
: 661 0653 2! | 
; 662 0654 2 ! SIDE EFFECTS: 
; 663 0655 2! | 
: 664 0656 § ! none 
> 665 0657 l<< 
3; 666 0658 2 
; 667 0659 2 LOCAL 
; 668 0660 2 rp : $ref_bblock, ! Local pointer to rqcb as we look for place 
; 669 0661 2 s $ref_bblock, ! Local pointer to new sort block 
: 670 0662 2 lsp : $ref_bblock, ! Local pointer to sort List as we move 
: 671 0663 2 sp : Sref_Bblock, ' Local pointer to sort List as we move 
: 672 0664 2 racb : $ref_bblock, 
; 673 0665 2 sort : $ref_bblock, 
3; 674 0666 2 ocd : $ref_bblock, 
; 675 0667 § status; 
: 676 06 
3; 677 § EXTERNAL 


put (NULL_STRING); 
put ( 


J 13 
OPCSDEBUG 16-Sep-1984 01:25:49  VAX=11 Bliss-32_V4.0-742 Page 25 
voe~000 print_ocd 1e-38b-198e 12:80:21 DI SKSVMGMASTERSCOPCOM. CRC IDEBUG.B32;1°%" (8). 

| 

; 691 0683 debug_fao_buffer ( 
; 69 0684 ZASCID "OCD Vector: SYSTEM !XL_!1UL, GROUP !XL !1UL, USER !XL !1UL", 
; 69 0685 -ocd_vector [0], .ocd_vector (1), ! SYSTEM ocd 
: 694 0686 -ocd_vector ede -ocd_vector (3], ! GROUP 
; 695 0687 -ocd_vector [4], .ocd_vector (5 ! USER 
; 696 0688 ) 
; Or 0689 ); 
; 698 0690 
3 9 $3) If the spare is not null, print it also 
; 701 069 IF .ocd_vector (6) NEQ 0 | 
; 70 694 R 
; 70 695 -ocd_vector (7) NEQ 0 
> 704 0696 3 THEN | 
: 705 0697 3 put ( 
> 706 0698 3 debug_fao_buffer ( 
3 Ter 0699 ZASCID ' SPARE OCD Vector is_not null: spare !XL !1UL", | 
: 708 0700 -ocd_vector (6), .ocd_vector [7] ! spare 
: 709 0701 | 
; 710 0702 3 ); | 
; 7 0703 3 
s Tie 0704 3 ! Display the contents of the OCD entries. For now we will make the simplifying assumption that 
s 715 0705 ; ! the only OCD is the SYSTEM one. 
: 714 0706 : 
s 715 0707 3 put (NULL_STRING); 
; 716 0708 3 
: 717 0709 3 debug_fao_buffer ( ; 
: 718 0710 3 ZASCID * OCD at !XL, wisize !UL, b_type !UL, b.scope 'UL,_ lL -seqnum !XL', 
: 719 0711 3 -ocd, .ocd Cocd_w_size], .ocd Cocd_b_type], .ocd Cocd_b_scope], Tocd Cocd_l_seqnum] 
:; 720 erie 3 ) 
s Ye 0713 3 iE 
2 fee 0714 3 put ( 
s ves 0715 3 debug_fao_buffer ( ' 
3: 726 0716 3 ZASCID ' Luic !XL, lL ustatus !XL, ll leb 'UL, UL links !xXL:!XL" ; 
3; te 0717 3 -ocd Cocd_l_uic), .ocd Cotd_l_statusd, ocd Cocd_l_lcb], .ocd Cocd_(_flink], -ocd Cocd_l 
: 726 0718 3 ) 
s ver 0719 3 ); 
: 728 0720 ; put ( 
s tev 0721 debug_fao_buffer ( 
: 730 o7s¢ 3 ZASCID ' Llattnmasks !XL:!XL, lL inotifymasks !XL:!XL", 
; 731 0723 3 -ocd Cocd_l_attnmask1],_ .ocd Cocd_l-attnmaske), 
: 732 0724 3 -ocd Cocd-l“notifymaski], .ocd Locd7l_notifymask2) 
3 i 0725 ) 
3: «734 678 ); 
3; 735 07 put ( 
; 736 0728 debug_fao_buffer ( : 
s Tar 1444 ZASCID ' w_opercount !UL, l_operlinks !XL:!XL (head !XL)', , 
; A 4 ocd Cocd_w_opercount], .ocd Cocd_l_operflink], .ocd Cocd_l_operblink], ocd Cocd_l_operf | 
: 740 O73 ds 
3: 741 ore put ( 
3 meg 734 debug_fao_buffer ( , 
s 7% 0735 ZASCID ° worqgstcount !UL, l_urqstlinks !XL:!XL (head !XL)', 
3: 744 O7 36 
3: 745 073 
3; 746 0738 d3 
3; 767 0739 put ( 


| 
| 
ocd Cocd_w_rQstcount), .ocd Cotd_l_raqstflink], .ocd Cocd_l_raqstblink], ocd tan sitet 
| 
| 


‘SL ie, 
'SL !SL") 
ocd_w enablecount 
ocd_\_enablecount 
ocd_w_enablecount 
w_enablecount 
ocd__enablecount 
ocd_w_enablecount 
ocd_w_enablecount 
ocd w_enablecount 
w_enablecount 
ocd_w_enablecount 


'SL {St 


Kk 13 
OPCSDEBUG 16-Se VAX-11 Bliss-32 V4.0-742 
904.00 print_ocd 14- ~300 71382 93; $3: DISk SVMSMASTER: COPcOM. SRCIDEBUG.B32; 'y 
: 748 740 debug_fao_buffer ( 
: 749 L 0741 ZASCID STRING ' enables: 'SL 'SL !SL '!SL !SL !SL !SL !SL !SL 'SL !St !SL 
; £20 74 ‘SL 'St ‘St 'SL 'SL 'SL_'SL 'SL 'SL !St !St_ !St St !S 
: 751 074 .ocd Cocd_w  gnabbocmant (0) , .0¢d Cocd_w_enablecount (1)], .oc 
: Pee 0744 -ocd [ocd_w_enablecount (3)], .ocd [ocd ne “enablecount (4)J, .ocd 
; 75 0745 .ocd [ocd_w_enablecount (9) , 0Cd Locd_w_enablecount (7) ocd 
; 754 074 -ocd Cocd_w_enablecount (9) -ocd Locd_ “ys “enablecount 019} , «ocd Locd_ 
s 799 074 -ocd Locd_w_enablecount $18} , -0Cd Locd_w_enablecount (13)], .ocd 
s 136 0748 -ocd Locd_w_enablecount (15)], .ocd Locd_w_enablecount (16)], .ocd 
: 757 0749 -ocd Locd_w_enablecount (18)], .ocd Cocd_w_enablecount CMa ocd 
: 758 0750 .ocd Cocd_w_enablecount (21)], .ocd Cocd_w_enablecount (oe) e 20ce 
; 759 ee -ocd Cocd_w_enablecount ( $)4 -ocd Cocd_w_enablecount ( i}. -ocd Locd_ 
; 760 07 ¢ .ocd Locd_w_enablecount (27)], .ocd Cocd_w_enablecount (28)], .ocd 
; 761 075 .ocd Cocd-w_enablecount (30)], .ocd Cocd-w_enablecount (31)J 
: r6¢ 0754 
s 776 0755 ); 
> 764 0756 2 END; 
3; 765 0757 ‘ 
> 766 0758 ! Display all the RQCB's hanging off this OCD 
: 767 0759 ! 
; 768 0760 oyt ia sy mb string); 
; 769 0761 ef” 
; 770 O76 THEN 
: 77 L 076 "oul (debug_ fao buf fer (ZASCID 
. fo 0764 2 *'! T2<OPERATORS: !> Username Ident Enabled')) 
3; 773 0765 ELSE 
s 77% L 0766 put (debug_fao put ter tSASCie 
: 775 0767 "OPERATORS: (queue head !XL)’, 
: 776 0768 ocd Cocd_l_operflink])); : 
; 777 0769 sort = ! Init sorted list to null 
; 778 0770 racb = .ocd Cocd_l_o yt 
3; 779 0771 WHILE .rqcb NEQ ocd Locd_l_operflink] 
; 780 146: ; dO 
; 781 077 BEGIN 
; 782 0774 4 . NOT (status = OPCSGET_VM (ZREF (8), sb)) ! Get a new sort block 
s es 0775 ; THEN 
: 784 0776 $s onal stop (.status); 
: 785 0777 3 sb [4,0 »32,0] = .racb; ! Store the rqcb in the new sort block 
: 786 0778 3 fe “sort; ! List pointer to start of sorted list 
: 787 0779 ; es ! Last List pointer to null 
; 788 0780 WHILE 2$P NEQ 0 DO 
; 789 0781 4 BEG! : 
; 790 14-14 4 7: et pointer to rqcb of this sort block 
; 791 878 4 IF cH$ siBakt (. eon “Fracb.t _oper_len], pre rqcb_l “oper _ptrd. 
; 784 4 -rp Crqcb_l"oper_lenJ, -rp Crqacb_l-oper_ptrJ, 0) 
; 79 0785 4 THEN 
: 794 0786 4 EXITLOOP; 
3; 795 0787 4 isp = .sp; ! Remember this sort block as last sort block 
3; 796 0788 4 sp = .sp C0,0,32,0); ! Get pointer to next block 
; 797 0789 3 
; 798 Bree IF .lsp EQL 0 
; 799 791 THEN 
; 800 79 : : ’ 
3 O03 at Last pointer zero, means we are adding first entry to list 
: £08 795 4 BEGIN . : é 
; 804 0796 4 sb [(0,0,32,0] = .sort; ! Next pointer to zero or first in List 


* 5 
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OPCSDEBUG 1b-Se 1984 01:25:49 VAX-11 Bliss-32 V4.0-742 7) Of 
v04-000 print_ocd 1a-Sep- 1984 12:50:41 DISKSVMSMASTER: COPcoM. SRCIDEBUG.B32; o oe 8) Vv 
> 805 797 4 sort = .sb; ' Put it at the head of the List | 
; 806 798 END 
; & 99 ELSE 
. § 00 ! 
3 Oe 3 Last pointer non-zero, sort List is non-empty 
: 8 0 | 
; § 04 sb oth 0,32,0) = .tsp (0,0,32,0); ' Next pointer to zero 
; 4 8 U6, 6, $5 = vs; Previous 
; & 07 cack = ‘rach Crqcb_l_flink]; 
; 8 08 END; 
s 8 09 sp = .sort; 
; 8 WHILE .sp NEQ 0 
rt & dO 

8 BEGIN 

8 racb = (4,0,32.0); ! Get address of operator raqcb 

8 oriat.. “rae be racb): !' Print the rqcb 

¢ i Remember this as last sort block 

4 i Get pointer to next block 


| 

| 

H 0.32.0); | 
f Noi telus =" OPCSFREE VM (AREF (8), sb)) ! Get a new sort block | 
} 

| 
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8 

: " gre stop (.status); 

82 ‘ 

83 rqacb = .ocd Cocd l _rastflink]; 

8 iF br (nuit string); 

83 ef™ 

83 

83 BEGIN : . ; 
HH IF _.rqcb NEQ ocd Cocd_l_rastflink] ! Only print it if we hawe some requests 
83 L put (debug fao_buffer(ZASCID 

83. "TT 

8 END 


2<REQUESTS: !> Username Attn Message')) | 


84 LSE 

84 put (debug_fao pul ter CBAC IO 

842 *REQUEST High request !UL (!UL,!3XW) (queue head !XL)', 
843 re ney “num 

844 CIF aNOT “global. status CGBLSTS_K_IN_VAXcluster] 

845 THEN .request_number 
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14 
OPCSDEBUG ihese =1984 01:25:49 VAX-11 Bliss-32 V4.0-7 
v04-000 print_ocd 14-Sep-19 4 9:8 741 DISKSVMSMASTER:COPCOM. 
FB3E oF 93 re 9 A7 CALLS #5, DEBUG_FAO_BUFFER 
0 DD AC 218: PUSHL RO 
0000V gf 9 FB 00 A CALLS #1, PUT 
2 6 D1 028 22$:  CMPL RQCB, R2 
09 12 B6 EQ 23$ 
0000' CF 9F 00288 PUSHAB P.ACS 
0000v CF 91 FB OO2BC CALLS #1, PUT 
52 6 D1 002C1 238 CMPL RQCB, R2 
g¢ 13 002C4 BEQL 24$ 
6 DD 002C6 PUSHL  RQCB 
0000v CF 01 FB 002C8 CALLS #1, PRINT_RQCB 
56 66 00 OgCD MOVL (RQCB), ROCB 
EF 11 00200 BRB 23$ 
04 002D2 24$: RET 


; Routine Size: 723 bytes, Routine Base: S$CODE$ + 0371 
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ea 16-Sep-1984 ¢ 91: 5:49 VAX-11 Bliss-32 V4.0-742 3 

04-000 print_racb (raqcb) 14-Sep-1984 12:50:41 DISKSVMSMASTER: COPCOM. SRCJDEBUG.B32; 29 a , 
>; 864 0855 1 ROUTINE print_racb (racb : $ref_bblock) : NOVALUE = ZSBTITL ‘print_racb (racb)' 
: B65 0836 ie . cis aa, | 
; 866 085 '+4 
; 867 0858 ‘ 
> 868 0859 ' FUNCTIONAL DESCRIPTION: 
; 869 0860 ! ; 
; 870 0861 ' Format and print the contents of one RQCB 
; 871 48 ‘ 
; aie 086 ! INPUTS: 
; 87 0864 { 
> 874 0865 ! none 
: 875 bees 5 ! 
: 876 867 ! IMPLICIT INPUTS: 
; 877 0868 2 ! 
; 878 0869 § ' none 
; 879 0870 ! 
; 880 0871 2 ! OUTPUTS: 
; 881 pare qe} 
3 ry 08735 2! none 
; «88 0874 2! 
; 884 0875 2 ! IMPLICIT OUTPUTS: 
; 885 0876 2! 
; 886 0877 2! none 
; 887 0878 2! 
; 888 0879 2 ! ROUTINE VALUE: 
; 889 0880 2! 
; 890 0881 2! none 
> «891 0882 2! 
3 892 0883 2 ! SIDE EFFECTS: 
: 893 0884 2! 
; 894 0885 2! none 
; 895 0886 2 !-- 
; 896 0887 2 
; 897 0888 2 
; 898 0889 2 IF .rqcb EQL 0 | 
; 899 0890 2 THEN 
: 900 0891 2 RETURN; 
> 901 0892 2 
: 90 0893 2 IF .BRIEF 
; 9 0894 ¢ THE 
; 0895 BEGIN 
: 905 0896 3 . 
; 9 0897 3 ! Make a brief, ‘‘pretty’’ display of the contents of the RQCB 
3; 907 0898 3 ‘ 
; 908 0899 IF .rqcb Cracb_l_oper_len] NEQ 0 
; 909 0900 3 THEN 
3; 910 0901 3 put 
: 911 090 fao_buffer ( 
: 912 090 ZASCID ‘!4< !>!'16AF 'AF 'XL) OIXL', 
: 913 0904 q5ace ate feats l oper. len], .rqcb Craqacb_l_oper_ptr], 
: 914 0905 3 racb_t_uSername), 
3; «915 0906 3 ih racb_l_ident 
: 916 907 -racb Cracb_l- ~attnmask1] 
: 917 358 j 
; 918 909 ); 
; 919 0910 
: 920 0911 IF .racb Cracb_l_text_len] NEQ 0 
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PN AA AAA. AA. ANAND AANA VIDA AAA AAA AAPM SLES LPP LPP PPL LPL LEE SE 


a8 9: 5:49 VAX-11 Bliss-32 V4 
984 741 


t 
len = .racb 
ptr = ke Be 
oe 


tacb. t _text_len]; 
racb_l-text =ptr 8 
(.rqcb ger. _text_len] GTR 30); 


» deewn fet: buffer 
YASCID. "!13UL ‘AF IML OLARTIARS, 
ygacb Cracbt L_rastnum], 
ae pepe racb t_username], 
rgch tr racb t attnnask!J, 


mI n,3 sper 
CIF Len 8); THEN 2 ELSE 0), UPLIT BYTE (* =") 


y3 
IF .continued 
THEN 
BEGIN 
on = — - 37; 
Chi tr + 37; 
MILE en GTR 6 


BEGIN 


4 
debug_fao_bu : ' 

ID '!16< ef Beit 

(.len,60), pte 

(len ere 60) THEN 2 ELSE 0), UPLIT BYTE (' -') 


a Brew 


len = .len - 53; 
= .ptr + 53; 
ND; 


BEGIN 
rises the contents of the RQCB 


( 

ae fao_buf fer 
TASCID. . oy Bo L_links !ML:!XL, weosize 'UL, b_ Eye pe !UL’ 
-rqacb, .raqcb ct t ftinkd, -racb Cracb_ l Blink), -racb Cracb_w_ sizel, 
sracb Cracb_b_type] ~ 


); 
put ( 
debug_fao_buffer ( 
ZASCID ' t _seqnum !XL, l_ident !XL, csid !XL nod ! 


-racb Cracb_l"seqnum], .rqcb Cracb_l Mt dent T° -rqcb trqcb” L a eta -rqcb Craqcb_l_nod] 


0-742 Pa 
DISKSVMSMASTER: COPCOM. SRCJDEBUG.B32;1 


5 | 
10). 


ft 
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OPCSDEBUG 
v04-000 


V4.0-742 Pa 
print rach (racb) : COPCOM. SRC IDEBUG.B32;1 


; 978 0969 ) ; 
Bo BRT el : 
° u | ‘ 
> 981 44) . debug_fao_buffer ( : 
; 097 ZASCID_' t.systemid !XL,!XW, l_ocd !XL, Ll status !XL, wmsgtype UL, | ; 
; 98 0974 -racb racb_lsystemidlJ, rach Cracb_w_systemidh], .rqcb Craqcb_l_ocd], : 
> 984 0975 -rqcb [rqcb_l_ status], .rqcb [racb_w_msgtype] : 
> 985 0976 ) | : 
BRE awl feat 
: u : 
; 988 0979 : debug_fao_buffer ( : 
; 989 0980 ; ZASCID_' woreplymbx_ !XW, SA e 'ML:!ML, losenderuic !XL' : 
; 990 0981 -racb prack.vreptyanrd -raqcb racb_l_privmask14, -racb Cracb_i_privmask2J, : 
; 991 4-14 ; -racb rqcb_l-senderuicd : 
; 098 ) ; 
Bo BRE wk iat 
3 pu | ; 
: 995 0986 ; debug_fao_buffer ( E ; : 
>; 996 0987 SCID ' t_username "‘!AF’', t_account "!AF’', b_basepri !UL', : 
; 99 0988 3 12, racb Cracb_t_username], 8, racb Crqacb_t_accountJ, .rqcb Crqcb_b_basepri] ; 
; 998 0989 3 ) : 
1600 0901 3 put | 
; u $ 
; 1001 43 3 3 debug_fao_buffer ( : } ; 
: 1002 993 3 ZASCID ° b.rqstcode !UL, b_scope !UL, l_options !XL, l_rq_options !XL", : 
: 1003 0994 3 -rqacb Crqacb_b_rqstcode], .rqcb Cracb_b_scopel, : 
3 1004 0995 ; -rqacb Crqcb_l_options], .rqcb Cracb_T_raq_options) : 
; 1005 0996 ) : 
Me BE gue : 
3 v) F 
: 1008 0999 3 é debug_fao_buffer ( " : | : 
: 1009 1000 3 ZASCID_' L_attnmasks !XL:!XL,_ Lirqstid !UL, l_uic !xXL', : $ 
: 1010 1001 3 -racb Cracb_l_attnmask1], .rqcb Cracb_l_attnmask2], .rqcb Craqcb_l_rqstid], ; 
3 1011 1002 3 eracb Cracb_l_uic] : 
: ists 1003 3 ) : 
lot 1008 § put | 
: u : 
3; 1015 1006 3 r debug_fao_buffer ( ; . $ 
: 1016 1007 3 ZASCID ° Limcb !XL, lirqstnum !UL, woprsts !XW, w_mbxsize !UL', : 
3 aE ines 3 gract Crqacb_l_mcb], .rqcb Cracb_l_rqstnum], .rqcb Cracb_w_oprstsJ, .rqcb scopic acesiend : 
1020 1011 tt 
Py Uu ° 
: 1021 1Oig . debug_fao_buffer ( a. eee | : 
3; 10 g 101 ZASCID ' lL_oper_len_!UL, l_oper_ptr !XL, (oper) “"!AF’’, é 
3 102 1014 ; -racb racb.|_oper_ten}, -racb Crqcb_l_oper_ptrJ, : 
3; 1024 1015 -rqcb Cracb_l_oper_lenJ, .rqcb C[racb_l_oper_ptrJ : 
3: 1025 1916 ) : 
1099 1018 tt 
; u : 
3; 1028 1019 F debug_fao_buffer ( : 
: 93 1020 ZASCID ° L_text_len !UL, (text ptr !XL', : 
3 1930 1038 srach Cracb_l“text_len], .rqcb Cracb_l_text_ptr] | : 
5 103 10 ds ; 
3 1038 HE IF .rqcb Cracb_l_text_len] NEQ 0 : 
; 1034 1025 THEN : 
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s¢ 
debug_fao_buffer ( 
ZASCID_' 


); 
ta ae (.rqcb Cracb_l_mcb]); 
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RETURN; 
END; 
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» tare” 
.racb Cracb_l_text_ptrJ 


~PSECT $PLITS,NOWRT,NOEXE,2 


eASCII = \I4K 1>!16AF ! AF XL EXL\<0><0> 


-ASCII <Q> 
«LONG 17694749 
«ADDRESS P.ACV 
eASCIT = \!13UL 


LONG 17694745 
-ADDRESS P.ACX 
ASCII \ =\ 


'AF 'XL ‘SAF’! AF\<0><0><0> 


-BLKB 2 
eASCII = \I166 !>""!AF'!AF\<0> 
LONG 17694735 


«ADDRESS P.ADA 
ASCII \ =\ 


2 


-BLKB 
*ASCII \ RQCB at !XL, UL links !XL:!XL, wusize\ 


ASCII \ SUL, b_type !UL\<0><0><0> 


LONG 17694777 
P.ADD 
\ L_seqnum !XL, l_ident !XL, lL icsid \ 


eASCII N\IXL, Lonod !XL\<0> 


«LONG 17694775 
-ADDRESS P.ADF 
-ASCII 


\ t.systemid !XL,!XW, l_locd !XL, lL s\ 


ASCII \tatus !XL, womsgtype !'L\<0><0><0> 


LONG 17694785 
-ADDRESS P.ADH 
ASCII 


~AD 
\ wireplymbx !XW, l_iprivmasks !XL:!XL\ 
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QOAD8 
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00000 


su 


000C 


-ASCII 


2 


\, losenderuic !XL\<0 


P.ADI: .LONG 17694778 
eT P.ADJ 


\ t_username "'!AF’', 


><0> 


tiaccount ""!AF'’, \ 


L_opt\ 


L_rqstid !UL, \ 


w_oprsts\ 


(o\ 


«ASCII \ blbasepri !UL\<0><0> 
P.ADK: .LONG 17694774 
-ADDRESS P.ADL 
P.ADN: .ASCII \ b.rqstcode !UL, b scope !UL, 
ASCII \ions !XL, L_rq_options !XL\<0><0> 
P.ADM: .LONG 17694786 
-ADDRESS P.ADN 
P.ADP: .ASCII \ L_attnmasks !XL:!XL, 
ASCII \_l_uic !XL\<0><0> 
P.ADO LONG 17694770 
ADDRESS P.ADP 
P.ADR SCII \ Limcb !XL, Lurqstnum !UL, 
ASCII \ XW, wombxsize !UL\<0> 
P.ADQ: .LONG 17694779 
ADDRESS P.ADR 
P.ADT: .ASCII \ L_oper_len !UL, l_oper_ptr !XL, 
eASCII \per)_""!AF''\<0><0> 
P.ADS: .LONG 17694770 
ADDRESS P.ADT 
P.ADV: .ASCII \ L_text_len !UL, (l_text ptr !XL\<0> 
P.ADU: .LONG 17694755 
-ADDRESS P.ADV 
P.ADX: .ASCII \ (text) ‘“!AF''\ 
P.ADW: .LONG 17694740 
eADDRESS F.ADX 
-PSECT S$CODES,NOWRT,2 
PRINT_RQCB: 
-WORD Save R2,R3,R4,R5,R6,R7,RB,R9 
MOVAB ul, 
MOVAB DEBUG _FAQ_BUFFER. R8 
MOVAB P.ACU, R 
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; Routine Size: 


o 

N 14 
OPCSDEBUG 16-Sep-1984 01:25:49 VAX-11 Bliss-32 V4.0-742 Page 42 Ol 
v04-000 print scb 12286871382 13:80:43 DISKSVMSMASTER: COPCOM. SRCJDEBUG.B32; 1 . (11) | vi 
> 1047 1037 1 ROUTINE print_scb : NOVALUE = XSBTTL ‘print scb' ; 
: 1048 1038 BEGIN 3 
3: 1049 1039 '+4 | 3 
; 1050 1040 ! : 
; 1051 1041 ' FUNCTIONAL DESCRIPTION: F 
: 105¢ 1943 | : 
3; 10 104 ' Format and print the contents of t>e SCB ; 
: 1054 1044 ! 3 
> 1055 1045 2 i INPUTS: | : 
; 1056 1046 ; F 
3; 1057 1047 ! none 3 
; 1058 1048 ! F 
; 1059 1049 | IMPLICIT INPUTS: ; 
: 1060 1050 2! : 
; 1061 1051 § t globai SCB_TABLE : 
3; 106 326 ! 3 
3; 106 105 2 ! OUTPUTS: 3 
: 1064 1054 § ' : 
; 1065 1055 ; none : 
3; 1066 1056 2! | 3 
> 1067 1057 2 | IMPLICIT OUTPUTS: | : 
3; 1068 1058 2! 3 
3 1069 1059 § } none : 
: 1070 1060 ! 3 
3; 1071 1061 2 ! ROUTINE VALUE: : 
; IO ee e! F 
3; 107 1065 2! none F 
: 1074 1064 2! 3 
3; 1075 1065 2 ! SIDE EFFECTS: : 
: 1076 1066 2! 3 
3; 1077 1067 2! none 3 
; 1078 1068 2 !-- 3 
3; 1079 1069 2 3 
: 1080 1070 § LOCAL 3 
3; 1081 1071 typ : VECTOR C4, LONG) INITIAL (ZASCID 'RQCB', ZASCID ‘MCB ‘, %ASCID ‘OCD *, ZASCID ‘NOD ‘), : 
3 Ose 1076 ptr : $ref_bblock; 3 
3; 108 107 3 
3 1084 1074 EXTERNAL 3 
; 1085 1075 § scb_table : VECTOR (0); : 
: 1086 1076 3 
: 1087 1077 ’ 
3; 1088 1078 ! Display the SCB entries 
3: 1089 1079 ! 
; 1090 1080 2 put (NULL_STRING); | 
3; 1091 1081 put (ZASCID 'SCB fable Entries:'); ‘ , 
: 1995 1036 put (ZASCID ' Type Address lock Size LAL Count Seqnum Queue Links"); 
3 3 
3 1094 1084 2 INCR idx FROM min_ds_type TO max_ds_type | 
3: 1095 1085 DO 
; 10 1086 BEGIN | 
3; 109 108 ptr = .scb_table C.idx-1]; 
3: 1098 1038 
: 1099 1089 debug_fao_buffer ( | 
; 1100 1090 ZASCID * !1UL !AS ML I SUL CIMW) « $3UL CE XW) Mt ‘XL: !XL° 
3: 1101 1091 -idx, :tye eidx-1], .ptr, .ptr Cscb_w size], .ptr seb sized, 
; 1108 1098 -ptr fse ~w_lal_count), .ote Cscb_w_Tal_count], .ptr Cscb7l_seqnum], 
3 110 109 -ptr Cscb_l-flink], .ptr Cscb_l_bTink] 
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~$255$DUA28: CSYSLIBILIB.L32;1 
~$255$DUA28 : COPCOM.OBJ JOPCOMLIB.L32;1 633 


; Elapsed Hees 
; Lines/CPU Min: 1461 
: Lexemes/CPU-Min: 23907 


tion Complete 


PSECT SUMMARY 


Bytes 


680 NOVEC, WRT, 
30¢ NOVEC,NOWRT, 
218 NOVEC,NOWRT, 


Library Statistics 


earned Symbols 
Total Loaded 


18619 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:DEBUG/OBJ=0BJ$:DEBUG MSRC$:DEBUG/UPDATE=(ENH$: DEBUG) 
2218 code + 3700 data bytes 


oe os 
12286873 -1 84 93 0:41 
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